#!/usr/bin/perl

$db_file ='/var/qmail/control/smtpThrottle.db';

######################################################################
use DB_File;

tie (%db, 'DB_File', "$db_file", O_RDWR, 0640, $DB_HASH) || die ("Can't open DB File, $!\n");

while (($k,$v) = each %db) {
  print "$k -> $v\n"
}

untie (%db);
